﻿Imports DAO
Imports DTO
Public Class CMonHocBUS

    Public Function ThemMonHoc(ByVal _MHdto As CMonHocDTO) As Integer
        Dim _dao As New CMonHocDAO()
        Dim _kt As Integer = _dao.ThemMonHoc(_MHdto)
        Return _kt
    End Function

    Public Function LayDanhSachMonHoc() As List(Of CMonHocDTO)
        Dim _dao As New CMonHocDAO()
        Dim _dsmonhoc As New List(Of CMonHocDTO)
        _dsmonhoc = _dao.LayDanhSachMonHoc()
        Return _dsmonhoc
    End Function

    Public Function CapNhatMonHoc(ByVal _MHdto As CMonHocDTO) As Integer
        Dim _dao As New CMonHocDAO()
        Dim _kt As Integer = _dao.CapNhatMonHoc(_MHdto)
        Return _kt
    End Function
End Class
